NutriPlot

Why this graph ?

Consuming foods that are high in protein but low in calories plays a crucial role in controlling body weight and decreasing body fat percentage. Additionally, high-protein foods have a tendency to provide a greater sense of fullness. When focusing on a diet aimed at building muscle, understanding the calorie and protein content of different foods is vital. That’s why I devised this straightforward table to aid in visualizing which foods are abundant in protein yet economical in calories.

How to read this scatter plot

On the axis, as you move towards the right, the food becomes more calorie-dense. Similarly, moving upwards indicates increasing protein density.

Consequently:

• Top left indicates foods with high protein content per calorie and low calorie count per 100g.
  
• Bottom right represents foods with low protein content per calorie but high overall calorie count per 100g.
  
• Top right denotes foods with high protein content per calorie and high calorie count per 100g.
  
• Bottom left signifies foods with low protein content per calorie and low calorie count per 100g.

source("libraries.R")

df <- read_csv2("prot.csv", show_col_types = FALSE)

scatter_plot1 <- df %>% 
  ggplot() +
  # Add points to the plot with kcal on x-axis and perc_prot on y-axis
  geom_point(aes(x = kcal, y = perc_prot, color = perc_prot, text = name)) +    
  # Add text labels using geom_text_repel
  geom_text_repel(aes(x = kcal, y = perc_prot, label = name), force = 6) +  
  scale_x_continuous(n.breaks = 10) +
  scale_y_continuous(n.breaks = 10) +
  scale_color_gradient(low = 'red',high = "green") +
  theme(legend.position = "none") +    
  labs(y = "protein[%] for 100 kcal", x = "kcal for 100 grams of food ")    

scatter_plot1

Figure 1: for 100g of content